0 REMSAVE"ORDER BLANK-PR",8
50 FORX=0TO39:L$=L$+"[164]":NEXT
52 DD$=L$
60 :
100 PRINT"[147][217]OU MAY LOOK AT [204]OADSTAR ORDERING "
102 PRINT"INFORMATION ON THE SCREEN OR THE  "
104 PRINT"PRINTER.":PRINT
200 PRINT" [201]F YOU CHOOSE PRINTER, YOUR PRINTER"
202 PRINT"WILL PRINT AN ORDER FORM.":PRINT:PRINT
300 PRINT"[211]CREEN OR [208]RINTER (S/P)":POKE198,0:WAIT198,1:GETZ$
400 IFZ$<>"S"ANDZ$<>"P"THEN300
500 IFZ$="S"THEN5500
1050 PRINT"[147][208]LEASE TURN YOUR PRINTER ON AND PUT"
1052 PRINT"THE PAPER AT THE TOP OF A PAGE."
1054 PRINT:PRINT"[208]RESS A KEY WHEN YOU ARE READY TO PRINT.":POKE198,0:WAIT198,1
1100 OPEN4,4,7:CMD4
1200 PRINT"                          [204][207][193][196][211][212][193][210] - #14"
1300 PRINT"                          [208].[207]. [194]OX 30007"
1400 PRINT"                     [211]HREVEPORT [204][193]  71130-0007":PRINT
1500 :
1600 :
1700 READA$:IFA$="END"THEN1950
1800 PRINTA$
1900 GOTO1700
1950 :
1960 :
2000 PRINT"[206]AME            :"DD$:PRINT
2100 PRINT"[193]DDRESS         :"DD$:PRINT
2200 PRINT"[195]ITY/[211]TATE/[218]IP  :"DD$:PRINT
2400 :
2402 PRINT"        [198]OR DISKETTE ORDERS, USE YOUR [213][208][211] DELIVERY ADDRESS."
2500 PRINT"                 [193][204][204] [208][210][201][195][197][211][160][201][206][195][204][213][196][197][160][211][200][201][208][208][201][206][199][160][195][200][193][210][199][197][211]"
2600 PRINT:PRINT:PRINT:PRINT#4:CLOSE4
2700 GOTO7900
2800 DATA" [193] NEW ISSUE OF [204][207][193][196][211][212][193][210] IS PUBLISHED EVERY MONTH.  [200]OWEVER, [204][207][193][196][211][212][193][210]
2900 [131]"DOES NOT BECOME DATED MATERIAL.  (null)HE PROGRAMS ON (null)(null)ATNSTR$(null)(null)ATN(null) HAVE PERMANENT
3000 DATA"VALUE.  [217]OU WILL WANT THE COMPLETE [204][207][193][196][211][212][193][210] COLLECTION.  [193]LL PAST ISSUES
3100 [131]"STARTING WITH NUMBER 1 ARE STILL AVAILABLE FOR $9.95 EACH."
3200 [131]" (null)RDER THREE OR MORE AND TAKE ONE DOLLAR OFF EACH ISSUE.  (null)RDER SIX OR
3300 DATA"MORE AND TAKE TWO DOLLARS OFF EACH ISSUE.",
3400 DATA" [211]END ME THE FOLLOWING ISSUE NUMBERS [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] , [164][164][164] ,"
3500 DATA"[164][164][164] , [164][164][164] AT  $[164][164][164][164][164][164] EACH."
3600 DATA" "
3700 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]"
3800 DATA,
3900 DATA" [211][207][198][212][196][201][211][203] DISKETTES ARE DOUBLE DENSITY AND PUNCHED SO THAT THEY CAN BE
4000 [131]"USED ON BOTH SIDES.  (null)(null)ASC(null)STR$RIGHT$(null)(null) DISKETTES COME PACKED IN PLASTIC LIBRARY
4002 DATA"CASES (10 TO A CASE) OR [196]ISK [205]INDERS (50 PER [205]INDER) WITH WRITE"
4100 DATA"PROTECT TABS AND LABELS. [160][212]HEY SELL FOR $1.50 PER DISK. "
4102 DATA"[215]E ALSO HAVE DISKS WITHOUT ANY CASE.  [212]HESE SELL FOR $1.30 EACH."
4200 DATA"[193]T THESE PRICES, WE REQUIRE THAT YOU ORDER A MINIMUM OF 50 OR A"
4300 DATA"MULTIPLE OF 50.  [217]OU GET A FREE HEAD CLEANING DISK WITH EACH 50.",
4350 DATA" [195]ASES OR [205]INDERS __(CIRCLE ONE)      [194]ULK [196]ISKS (NO FRILLS)"
4400 DATA"[164][164][164][164][164][164]  50 AT $1.50 EACH = $ 75    [164][164][164][164][164]  50 AT $1.30 = $ 65"
4500 DATA"[164][164][164][164][164][164] 100 AT $1.50 EACH = $150    [164][164][164][164][164] 100 AT $1.30 = $130"
4600 DATA"[164][164][164][164][164][164] 150 AT $1.50 EACH = $225    [164][164][164][164][164] 150 AT $1.30 = $195"
4700 DATA"[164][164][164][164][164][164] 200 AT $1.50 EACH = $300    [164][164][164][164][164] 200 AT $1.30 = $260"
4800 DATA" "
4900 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]                [211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164]"
5000 DATA,
5002 DATA" [212]HE [204][207][193][196][211][212][193][210] [211]OFTWARE [196]ISK SERIES IS NOW AVAILABLE.  [200]ERE IS A LIST"
5004 DATA"OF OUR CURRENT DISKS AND THEIR PRICES:",,
5008 DATA"[164][164][164] [195][200][193][205][197][204][197][207][206] -- $16.95             [164][164][164] [211]IGN [208]AINTER -- $16.95"
5010 DATA"[164][164][164] [215][193][210][208] +    -- $16.95             [164][164][164] [196][207][211] & [196]ON'TS -- $ 9.95"
5020 DATA""
5025 DATA"[211][213][194]-[212][207][212][193][204]: $[164][164][164][164][164][164]",
5026 DATA" [204][207][193][196][211][212][193][210] IS AN OFFICIAL DISTRIBUTOR OF [195][207][205][193][204] .14. [195][207][205][193][204] COMBINES THE
5027 [131]"STRUCTURE OF (null)ATN(null)LENATN(null) WITH THE EASE OF PEEKATN(null)RIGHT$LEN.  (null)RDER YOURSELF A COPY"
5028 [131]"TODAY!",,"(null)END ME TOTOTOTO COPIES OF LEN(null)(null)ATN(null) .14 FOR $9.95 EACH."
5029 [131],"(null)(null)PEEK-(null)(null)(null)ATN(null): $TOTOTOTOTOTO",
5030 [131]"CHR$(null)ATN(null)STR$ (null)(null)(null)ATN(null): $TOTOTOTOTOTO",
5100 [131]"              TOTO LENHECK    TOTO (null)RIGHT$(null)ATN     TOTO (null)ATN(null)(null)VAL(null) LENATN(null)STR$"
5200 :
5300 [131],"LENARD #  :TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO         VALXP DATE: TOTO / TOTO / TOTO"
5400 [131],"END"
5500 [153]"LOAD"
5600 [153]" ATN NEW ISSUE OF (null)(null)ATNSTR$(null)(null)ATN(null) IS PUBLISHED ":[153]
5700 [153]"EVERY MONTH.  LEFT$OWEVER, (null)(null)ATNSTR$(null)(null)ATN(null) DOES ":[153]
5800 [153]"NOT BECOME DATED MATERIAL.  (null)HE ":[153]
5900 [153]"PROGRAMS ON (null)(null)ATNSTR$(null)(null)ATN(null) HAVE PERMANENT":[153]
6000 [153]"VALUE.  (null)OU WILL WANT THE COMPLETE":[153]
6100 [153]"(null)(null)ATNSTR$(null)(null)ATN(null)CLOSECOLLECTION.  ATNLL PAST ISSUES":[153]
6200 [153]"STARTING WITH NUMBER 1 ARE STILL":[153]
6300 [153]"AVAILABLE FOR $9.95 EACH.":[153]
6400 [153]" (null)RDER 3 OR MORE AND TAKE ONE DOLLAR":[153]
6500 [153]"OFF EACH ISSUE.  (null)RDER 6 OR MORE AND ":[153]
6600 [153]"TAKE TWO DOLLARS OFF EACH ISSUE.":[153]
6700 [153]"        <PRESS A KEY FOR MORE>"
6704 [151]198,0:[146]198,1:[161]Z$
6710 [153]"LOAD  (null)HE (null)(null)ATNSTR$(null)(null)ATN(null) (null)OFTWARE STR$ISKS ARE"
6715 [153]:[153]"AVAILABLE.  (null)RDER SOME TODAY."
6745 [153]:[153]:[153]
6750 [153]"         (null)RIGHT$(null)(null)VAL(null)CLOSE(null)(null)(null) ATN(null)ATNRIGHT$(null)ATNPEEK(null)VAL:":[153]:[153]
6755 [153]:[153][166]9)"(null)ATN(null)(null)+ -        $16.95"
6756 [153]:[153][166]9)"(null)IGN (null)AINTER - $16.95"
6757 [153]:[153][166]9)"LENLEFT$ATN(null)VAL(null)VAL(null)(null) -    $16.95"
6758 [153]:[153][166]9)"STR$(null)(null) & STR$ON'TS - $ 9.95"
6760 [153]"        <PRESS A KEY FOR MORE>"
6800 [151]198,0:[146]198,1:[161]Z$
6900 [153]"LOAD"
7000 [153]" (null)(null)ASC(null)STR$RIGHT$(null)(null) DISKETTES COME FULLY PACKAGED":[153]
7100 [153]"AND DOUBLE PUNCHED FOR USE ON BOTH ":[153]
7200 [153]"SIDES.  (null)(null)ASC(null)STR$RIGHT$(null)(null) DISKS SELL FOR $1.50":[153]
7300 [153]"EACH WITH A CASE OR $1.30 EACH":[153]
7400 [153]"WITHOUT A CASE.  ATNT THESE PRICES, WE":[153]
7410 [153]"REQUIRE YOU TO BUY A MINIMUM OF 50":[153]
7420 [153]"OR A MULTIPLE OF 50.":[153]
7510 [153]" (null)HE PACKAGED DISKS COME IN PLASTIC":[153]
7520 [153]"LIBRARY CASES OR STR$ISK (null)INDERS.  (null)HE":[153]
7522 [153]"DISKS COME WITH A HEAD CLEANING DISK":[153]
7530 [153]"FOR EACH 50 ORDERED.":[153]
7600 [143]
7700 [153]"       <PRESS A KEY TO CONTINUE>;":[151]198,0:[146]198,1:[161]Z$
7710 [153]"LOAD (null)(null)ATNSTR$(null)(null)ATN(null) HAS BECOME AN OFFICIAL ":[153]
7720 [153]"DISTRIBUTOR OF LEN(null)(null)ATN(null) .14.  LEN(null)(null)ATN(null) HAS ":[153]
7730 [153]"ALL OF THE STRUCTURE OF HIGHER LANGUAGES"
7740 [153]"LIKE (null)ATN(null)LENATN(null).  LEN(null)(null)ATN(null) ALSO INCLUDES":[153]
7750 [153]"ADDITIONAL COMMANDS WHICH MAKE GRAPHICS":[153]
7760 [153]"AND SOUND MUCH EASIER ON THE LEN-64.":[153]
7770 [153]"(null)RDER YOUR COPY OF LEN(null)(null)ATN(null) TODAY!  (null)HE":[153]
7780 [153]"PRICE IS ONLY  $9.95."
7782 [153]"      (null)RIGHT$(null)ATN, (null)LEN, OR CHECK ACCEPTED."
7785 [153][166]8)"<PRESS 'S' TO VIEW AGAIN>"
7800 [151]198,0:[146]198,1:[161]Z$:[139]Z$[178]"S"[167]5500
7900 [153]"LOADLOAD"[199](34)"ORDER FORM"[199](34)",8":[153]"RUN"
8000 [151]631,13:[151]632,13:[151]198,2:[128]